; 4-8 hash table
(setf ht (make-hash-table))

(gethash 'color ht)

(setf (gethash 'color ht) 'red)

(setf bugs (make-hash-table))
(push "Doesn't take keyword arguments."
			(gethash #'< bugs))

(setf fruit (make-hash-table))
(setf (gethash 'apricot fruit) t)

(setf (gethash 'shape ht) 'spherical
			(gethash 'size ht) 'giant)

(maphash #'(lambda (k v)
						 (format t "~A = ~A~%" k v))
				 ht)

(make-hash-table :size 5)

